source PAC.tcl
source minimap.tcl
source map.tcl

# UniversA --
#
inherit UniversA Abstraction
method UniversA constructor {control } {
   this inherited $control 
}

method UniversA destructor {} {
   this inherited
}


# Univers --
#
inherit Univers Control
method Univers constructor { Map MiniMap } {
   UniversA ${objName}_abst $objName 
   this inherited "" ${objName}_abst ""
   set this(map) $Map
   set this(minimap) $MiniMap
   
}

method Univers destructor {} {
   this inherited
}

method Univers draw {} {

}
